home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / bin_c / compile_to_c38.c < prev    next >
C/C++ Source or Header  |  1998-12-22  |  3KB  |  140 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_c.h"
  9.  
  10.  
  11. T6 r255is_boolean(T255* C){
  12. T6 R=0;
  13. R=X54is_boolean((C)->_run_type/*16*/);
  14. return R;
  15. }
  16.  
  17.  
  18. void r255mapping_cast(T255* C){
  19. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms54_15696)))))->_count)=(0);
  20. /*]*/
  21. r7extend((T7*)(((T0*)ms54_15696)),'\50');
  22. r255c_type_for_target_in(C,((T0*)ms54_15696));
  23. r7extend((T7*)(((T0*)ms54_15696)),'\51');
  24. /*[IRF3.5put_string*/r45put_string(((T45*)(((T25*)(oBC12cpp))->_current_out/*56*/)),((T0*)ms54_15696));
  25. /*]*/
  26. }
  27.  
  28.  
  29. T6 r255is_generic(T255* C){
  30. T6 R=0;
  31. R=X54is_generic((C)->_run_type/*16*/);
  32. return R;
  33. }
  34.  
  35.  
  36. T6 r255is_real(T255* C){
  37. T6 R=0;
  38. R=X54is_real((C)->_run_type/*16*/);
  39. return R;
  40. }
  41.  
  42.  
  43. T6 r255need_c_struct(T255* C){
  44. T6 R=0;
  45. R=X54need_c_struct((C)->_run_type/*16*/);
  46. return R;
  47. }
  48.  
  49.  
  50. void r255with(T255* C,T0* a1,T0* a2){
  51. C->_start_position=(((T255*)a1))->_start_position/*4*/;
  52. C->_like_what=(((T255*)a1))->_like_what/*8*/;
  53. C->_written_mark=(((T255*)a1))->_written_mark/*12*/;
  54. C->_run_type=a2;
  55. }
  56.  
  57.  
  58. T6 r255is_any(T255* C){
  59. T6 R=0;
  60. R=X54is_any((C)->_run_type/*16*/);
  61. return R;
  62. }
  63.  
  64.  
  65. T6 r255is_basic_eiffel_expanded(T255* C){
  66. T6 R=0;
  67. R=X54is_basic_eiffel_expanded((C)->_run_type/*16*/);
  68. return R;
  69. }
  70. /*No:TYPE_LIKE_FEATURE.fz_gc_mark*/
  71. /*No:TYPE_LIKE_FEATURE.fz_like*/
  72.  
  73.  
  74. T6 r255need_gc_mark_function(T255* C){
  75. T6 R=0;
  76. R=X54need_gc_mark_function((C)->_run_type/*16*/);
  77. return R;
  78. }
  79.  
  80.  
  81. T6 r255is_native_array(T255* C){
  82. T6 R=0;
  83. T0* _tna=NULL;
  84. _tna=(T0*)C;
  85. if(NULL!=(_tna))switch(((T0*)_tna)->id) {
  86. case 263: 
  87. break;
  88. default:
  89. _tna=NULL;
  90. };R=(_tna)!=((void*)(NULL));
  91. return R;
  92. }
  93.  
  94.  
  95. T6 r255is_string(T255* C){
  96. T6 R=0;
  97. R=X54is_string((C)->_run_type/*16*/);
  98. return R;
  99. }
  100.  
  101.  
  102. T6 r255is_integer(T255* C){
  103. T6 R=0;
  104. R=X54is_integer((C)->_run_type/*16*/);
  105. return R;
  106. }
  107. /*No:TYPE_LIKE_FEATURE.is_anchored*/
  108. /*No:TYPE_LIKE_FEATURE.is_run_type*/
  109.  
  110.  
  111. T6 r255is_reference(T255* C){
  112. T6 R=0;
  113. R=X54is_reference((C)->_run_type/*16*/);
  114. return R;
  115. }
  116. /*No:TYPE_LIKE_FEATURE.like_what*/
  117. /*No:TYPE_LIKE_FEATURE.tmp_written_mark*/
  118.  
  119.  
  120. T6 r255is_none(T255* C){
  121. T6 R=0;
  122. R=X54is_none((C)->_run_type/*16*/);
  123. return R;
  124. }
  125. /*No:TYPE_LIKE_FEATURE.is_like_argument*/
  126.  
  127.  
  128. void r255just_before_gc_mark_in(T255* C,T0* a1){
  129. X54just_before_gc_mark_in((C)->_run_type/*16*/,a1);
  130. }
  131. /*No:TYPE_LIKE_FEATURE.mapping_cast_memory*/
  132.  
  133.  
  134. T6 r255is_double(T255* C){
  135. T6 R=0;
  136. R=X54is_double((C)->_run_type/*16*/);
  137. return R;
  138. }
  139.  
  140.